0 REM BOX-DEMO 1
5 :
10 SYS 32168
20 :
30 REM TEXTE NACH B$(), FARBEN NACH F()
35 REM  ANZAHL NACH BN
40 BN=10 :DIM B$(BN),F(BN)
50 FOR B=1 TO BN
60 B$(B)="BOX"+STR$(B)
70 F(B)=(F(B-1)+1)AND15 :IF F(B)<2 THEN F(B)=2
80 NEXT
90 :
100 (null) :Z=0 :S=0
110 FOR B=1 TO BN
120 S2=S+LEN(B$(B))+1
130 IF S2>39 THEN Z=Z+3 :S=0 :GOTO 120
140 (null) Z+1,S+1,F(B),B$(B)
150 (null) F(B),Z,S,Z+2,S2
160 (null)B,Z,S,Z+2,S2,F(B)+128
170 S=S2+1
180 NEXT B
190 :
200 B=5
210 (null) B
220 :
230 (null) 10,1,"SIE HABEN NR."+STR$(B)+" AUSGEWAEHLT !"